home *** CD-ROM | disk | FTP | other *** search
/ Macworld Expo - Develope…Central & Net Innovations / Developer Central and Net Innovators (MacWorld Expo) (January 1999).iso / Developer Central / Bowers Development / Demo AppMaker / Examples / Pascal OS8 / Everything / DModelessTextData.p < prev    next >
Encoding:
Text File  |  1998-10-30  |  3.7 KB  |  231 lines  |  [TEXT/CWIE]
  1. { DModelessTextData.p -- data container class for Everything}
  2.  
  3. Unit DModelessTextData;
  4. Interface
  5.  
  6. Uses
  7.     Types,
  8.     OSUtils,
  9.  
  10.  
  11.     AMSignaler;
  12.  
  13. const
  14.     idSmall3        = longint ('Sma3');
  15.     idLarge3        = longint ('Lar3');
  16.     idX12347        = longint ('X147');
  17.     idX12345e8        = longint ('X128');
  18.     idPassword3        = longint ('Pas3');
  19.     idDate3        = longint ('Dat3');
  20.     idTime3        = longint ('Tim3');
  21.     idStyled3        = longint ('Sty3');
  22.  
  23. type
  24.     {----------}
  25.     DModelessTextData    = object (AMSignaler)
  26.  
  27.     {data members}
  28.         mSmall3:        Str255;
  29.         mLarge3:        Str255;
  30.         mX12347:        SInt32;
  31.         mX12345e8:        double;
  32.         mPassword3:        Str255;
  33.         mDate3:        LongDateRec;
  34.         mTime3:        LongDateRec;
  35.         mStyled3:        Str255;
  36.  
  37.     {methods}
  38.         Procedure Initialize; Override;
  39.  
  40.         Function  GetSmall3: Str255;
  41.         Procedure SetSmall3    (inValue:        Str255);
  42.         Function  GetLarge3: Str255;
  43.         Procedure SetLarge3    (inValue:        Str255);
  44.         Function  GetX12347: SInt32;
  45.         Procedure SetX12347    (inValue:        SInt32);
  46.         Function  GetX12345e8: double;
  47.         Procedure SetX12345e8    (inValue:        double);
  48.         Function  GetPassword3: Str255;
  49.         Procedure SetPassword3    (inValue:        Str255);
  50.         Function  GetDate3: LongDateRec;
  51.         Procedure SetDate3    (inValue:        LongDateRec);
  52.         Function  GetTime3: LongDateRec;
  53.         Procedure SetTime3    (inValue:        LongDateRec);
  54.         Function  GetStyled3: Str255;
  55.         Procedure SetStyled3    (inValue:        Str255);
  56.     end;
  57.  
  58. {----------}
  59. Function NewDModelessTextData: DModelessTextData;
  60.  
  61. {----------}
  62. Implementation
  63.  
  64. {----------}
  65. Function NewDModelessTextData: DModelessTextData;
  66. var
  67.     data:        DModelessTextData;
  68. begin
  69.     data := nil;
  70.     New (data);
  71.     if data <> nil then begin
  72.         data.Initialize;
  73.     end;
  74.     NewDModelessTextData := data;
  75. end;
  76.  
  77. {----------}
  78. Procedure DModelessTextData.Initialize;
  79. begin
  80.     inherited Initialize;
  81.  
  82.     mSmall3 := 'Small';
  83.     mLarge3 := 'Large';
  84.     mX12347 := 12345;
  85.     mX12345e8 := 123.45e6;
  86.     mPassword3 := 'Password';
  87.     mDate3.eraAlt := 0;
  88.     GetTime (mDate3.oldDate);
  89.     mTime3.eraAlt := 0;
  90.     GetTime (mTime3.oldDate);
  91.     mStyled3 := 'Styled';
  92. end;
  93.  
  94. {----------}
  95. Function DModelessTextData.GetSmall3: Str255;
  96. begin
  97.     GetSmall3 := mSmall3;
  98.  
  99.  
  100. end;
  101.  
  102. Procedure DModelessTextData.SetSmall3 (
  103.     inValue:        Str255);
  104. begin
  105.     mSmall3 := inValue;
  106.  
  107.  
  108.     SignalDataChanged (idSmall3);
  109. end;
  110.  
  111. {----------}
  112. Function DModelessTextData.GetLarge3: Str255;
  113. begin
  114.     GetLarge3 := mLarge3;
  115.  
  116.  
  117. end;
  118.  
  119. Procedure DModelessTextData.SetLarge3 (
  120.     inValue:        Str255);
  121. begin
  122.     mLarge3 := inValue;
  123.  
  124.  
  125.     SignalDataChanged (idLarge3);
  126. end;
  127.  
  128. {----------}
  129. Function DModelessTextData.GetX12347: SInt32;
  130. begin
  131.     GetX12347 := mX12347;
  132.  
  133.  
  134. end;
  135.  
  136. Procedure DModelessTextData.SetX12347 (
  137.     inValue:        SInt32);
  138. begin
  139.     mX12347 := inValue;
  140.  
  141.  
  142.     SignalDataChanged (idX12347);
  143. end;
  144.  
  145. {----------}
  146. Function DModelessTextData.GetX12345e8: double;
  147. begin
  148.     GetX12345e8 := mX12345e8;
  149.  
  150.  
  151. end;
  152.  
  153. Procedure DModelessTextData.SetX12345e8 (
  154.     inValue:        double);
  155. begin
  156.     mX12345e8 := inValue;
  157.  
  158.  
  159.     SignalDataChanged (idX12345e8);
  160. end;
  161.  
  162. {----------}
  163. Function DModelessTextData.GetPassword3: Str255;
  164. begin
  165.     GetPassword3 := mPassword3;
  166.  
  167.  
  168. end;
  169.  
  170. Procedure DModelessTextData.SetPassword3 (
  171.     inValue:        Str255);
  172. begin
  173.     mPassword3 := inValue;
  174.  
  175.  
  176.     SignalDataChanged (idPassword3);
  177. end;
  178.  
  179. {----------}
  180. Function DModelessTextData.GetDate3: LongDateRec;
  181. begin
  182.     GetDate3 := mDate3;
  183.  
  184.  
  185. end;
  186.  
  187. Procedure DModelessTextData.SetDate3 (
  188.     inValue:        LongDateRec);
  189. begin
  190.     mDate3 := inValue;
  191.  
  192.  
  193.     SignalDataChanged (idDate3);
  194. end;
  195.  
  196. {----------}
  197. Function DModelessTextData.GetTime3: LongDateRec;
  198. begin
  199.     GetTime3 := mTime3;
  200.  
  201.  
  202. end;
  203.  
  204. Procedure DModelessTextData.SetTime3 (
  205.     inValue:        LongDateRec);
  206. begin
  207.     mTime3 := inValue;
  208.  
  209.  
  210.     SignalDataChanged (idTime3);
  211. end;
  212.  
  213. {----------}
  214. Function DModelessTextData.GetStyled3: Str255;
  215. begin
  216.     GetStyled3 := mStyled3;
  217.  
  218.  
  219. end;
  220.  
  221. Procedure DModelessTextData.SetStyled3 (
  222.     inValue:        Str255);
  223. begin
  224.     mStyled3 := inValue;
  225.  
  226.  
  227.     SignalDataChanged (idStyled3);
  228. end;
  229.  
  230. end.
  231.